home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / stdctrls.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  41.9 KB  |  1,201 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'StdCtrls.pas' rev: 3.00
  6.  
  7. #ifndef StdCtrlsHPP
  8. #define StdCtrlsHPP
  9. #include <Graphics.hpp>
  10. #include <Menus.hpp>
  11. #include <Forms.hpp>
  12. #include <Controls.hpp>
  13. #include <Classes.hpp>
  14. #include <SysUtils.hpp>
  15. #include <Windows.hpp>
  16. #include <Messages.hpp>
  17. #include <SysInit.hpp>
  18. #include <System.hpp>
  19.  
  20. //-- user supplied -----------------------------------------------------------
  21.  
  22. namespace Stdctrls
  23. {
  24. //-- type declarations -------------------------------------------------------
  25. class DELPHICLASS TCustomGroupBox;
  26. class PASCALIMPLEMENTATION TCustomGroupBox : public Controls::TCustomControl 
  27. {
  28.     typedef Controls::TCustomControl inherited;
  29.     
  30. private:
  31.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  32.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  33.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  34.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Message);
  35.     
  36. protected:
  37.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  38.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  39.     virtual void __fastcall Paint(void);
  40.     
  41. public:
  42.     __fastcall virtual TCustomGroupBox(Classes::TComponent* AOwner);
  43. public:
  44.     /* TCustomControl.Destroy */ __fastcall virtual ~TCustomGroupBox(void) { }
  45.     
  46. public:
  47.     /* TWinControl.CreateParented */ __fastcall TCustomGroupBox(HWND ParentWindow) : Controls::TCustomControl(
  48.         ParentWindow) { }
  49.     
  50. };
  51.  
  52. class DELPHICLASS TGroupBox;
  53. class PASCALIMPLEMENTATION TGroupBox : public Stdctrls::TCustomGroupBox 
  54. {
  55.     typedef Stdctrls::TCustomGroupBox inherited;
  56.     
  57. __published:
  58.     __property Align ;
  59.     __property Caption ;
  60.     __property Color ;
  61.     __property Ctl3D ;
  62.     __property DragCursor ;
  63.     __property DragMode ;
  64.     __property Enabled ;
  65.     __property Font ;
  66.     __property ParentColor ;
  67.     __property ParentCtl3D ;
  68.     __property ParentFont ;
  69.     __property ParentShowHint ;
  70.     __property PopupMenu ;
  71.     __property ShowHint ;
  72.     __property TabOrder ;
  73.     __property TabStop ;
  74.     __property Visible ;
  75.     __property OnClick ;
  76.     __property OnDblClick ;
  77.     __property OnDragDrop ;
  78.     __property OnDragOver ;
  79.     __property OnEndDrag ;
  80.     __property OnEnter ;
  81.     __property OnExit ;
  82.     __property OnMouseDown ;
  83.     __property OnMouseMove ;
  84.     __property OnMouseUp ;
  85.     __property OnStartDrag ;
  86. public:
  87.     /* TCustomGroupBox.Create */ __fastcall virtual TGroupBox(Classes::TComponent* AOwner) : Stdctrls::
  88.         TCustomGroupBox(AOwner) { }
  89.     
  90. public:
  91.     /* TCustomControl.Destroy */ __fastcall virtual ~TGroupBox(void) { }
  92.     
  93. public:
  94.     /* TWinControl.CreateParented */ __fastcall TGroupBox(HWND ParentWindow) : Stdctrls::TCustomGroupBox(
  95.         ParentWindow) { }
  96.     
  97. };
  98.  
  99. enum TTextLayout { tlTop, tlCenter, tlBottom };
  100.  
  101. class DELPHICLASS TCustomLabel;
  102. class PASCALIMPLEMENTATION TCustomLabel : public Controls::TGraphicControl 
  103. {
  104.     typedef Controls::TGraphicControl inherited;
  105.     
  106. private:
  107.     Controls::TWinControl* FFocusControl;
  108.     TAlignment FAlignment;
  109.     bool FAutoSize;
  110.     TTextLayout FLayout;
  111.     bool FWordWrap;
  112.     bool FShowAccelChar;
  113.     bool __fastcall GetTransparent(void);
  114.     void __fastcall SetAlignment(Classes::TAlignment Value);
  115.     void __fastcall SetFocusControl(Controls::TWinControl* Value);
  116.     void __fastcall SetShowAccelChar(bool Value);
  117.     void __fastcall SetTransparent(bool Value);
  118.     void __fastcall SetLayout(TTextLayout Value);
  119.     void __fastcall SetWordWrap(bool Value);
  120.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  121.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  122.     MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  123.     
  124. protected:
  125.     DYNAMIC void __fastcall AdjustBounds(void);
  126.     DYNAMIC void __fastcall DoDrawText(Windows::TRect &Rect, Word Flags);
  127.     virtual System::AnsiString __fastcall GetLabelText(void);
  128.     virtual void __fastcall Loaded(void);
  129.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  130.         );
  131.     virtual void __fastcall Paint(void);
  132.     virtual void __fastcall SetAutoSize(bool Value);
  133.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  134.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  135.     __property Controls::TWinControl* FocusControl = {read=FFocusControl, write=SetFocusControl};
  136.     __property bool ShowAccelChar = {read=FShowAccelChar, write=SetShowAccelChar, default=1};
  137.     __property bool Transparent = {read=GetTransparent, write=SetTransparent, default=0};
  138.     __property TTextLayout Layout = {read=FLayout, write=SetLayout, default=0};
  139.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=0};
  140.     
  141. public:
  142.     __fastcall virtual TCustomLabel(Classes::TComponent* AOwner);
  143.     __property Canvas ;
  144. public:
  145.     /* TGraphicControl.Destroy */ __fastcall virtual ~TCustomLabel(void) { }
  146.     
  147. };
  148.  
  149. class DELPHICLASS TLabel;
  150. class PASCALIMPLEMENTATION TLabel : public Stdctrls::TCustomLabel 
  151. {
  152.     typedef Stdctrls::TCustomLabel inherited;
  153.     
  154. __published:
  155.     __property Align ;
  156.     __property Alignment ;
  157.     __property AutoSize ;
  158.     __property Caption ;
  159.     __property Color ;
  160.     __property DragCursor ;
  161.     __property DragMode ;
  162.     __property Enabled ;
  163.     __property FocusControl ;
  164.     __property Font ;
  165.     __property ParentColor ;
  166.     __property ParentFont ;
  167.     __property ParentShowHint ;
  168.     __property PopupMenu ;
  169.     __property ShowAccelChar ;
  170.     __property ShowHint ;
  171.     __property Transparent ;
  172.     __property Layout ;
  173.     __property Visible ;
  174.     __property WordWrap ;
  175.     __property OnClick ;
  176.     __property OnDblClick ;
  177.     __property OnDragDrop ;
  178.     __property OnDragOver ;
  179.     __property OnEndDrag ;
  180.     __property OnMouseDown ;
  181.     __property OnMouseMove ;
  182.     __property OnMouseUp ;
  183.     __property OnStartDrag ;
  184. public:
  185.     /* TCustomLabel.Create */ __fastcall virtual TLabel(Classes::TComponent* AOwner) : Stdctrls::TCustomLabel(
  186.         AOwner) { }
  187.     
  188. public:
  189.     /* TGraphicControl.Destroy */ __fastcall virtual ~TLabel(void) { }
  190.     
  191. };
  192.  
  193. enum TEditCharCase { ecNormal, ecUpperCase, ecLowerCase };
  194.  
  195. class DELPHICLASS TCustomEdit;
  196. class PASCALIMPLEMENTATION TCustomEdit : public Controls::TWinControl 
  197. {
  198.     typedef Controls::TWinControl inherited;
  199.     
  200. private:
  201.     int FMaxLength;
  202.     TFormBorderStyle FBorderStyle;
  203.     char FPasswordChar;
  204.     bool FReadOnly;
  205.     bool FAutoSize;
  206.     bool FAutoSelect;
  207.     bool FHideSelection;
  208.     bool FOEMConvert;
  209.     TEditCharCase FCharCase;
  210.     bool FCreating;
  211.     bool FModified;
  212.     Classes::TNotifyEvent FOnChange;
  213.     void __fastcall AdjustHeight(void);
  214.     bool __fastcall GetModified(void);
  215.     bool __fastcall GetCanUndo(void);
  216.     void __fastcall SetAutoSize(bool Value);
  217.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  218.     void __fastcall SetCharCase(TEditCharCase Value);
  219.     void __fastcall SetHideSelection(bool Value);
  220.     void __fastcall SetMaxLength(int Value);
  221.     void __fastcall SetModified(bool Value);
  222.     void __fastcall SetOEMConvert(bool Value);
  223.     void __fastcall SetPasswordChar(char Value);
  224.     void __fastcall SetReadOnly(bool Value);
  225.     void __fastcall SetSelText(const System::AnsiString Value);
  226.     void __fastcall UpdateHeight(void);
  227.     MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);
  228.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  229.     HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  230.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  231.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  232.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  233.     
  234. protected:
  235.     virtual void __fastcall DefaultHandler(void *Message);
  236.     DYNAMIC void __fastcall Change(void);
  237.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  238.     virtual void __fastcall CreateWnd(void);
  239.     virtual void __fastcall DestroyWnd(void);
  240.     virtual void __fastcall DoSetMaxLength(int Value);
  241.     virtual int __fastcall GetSelLength(void);
  242.     virtual int __fastcall GetSelStart(void);
  243.     virtual System::AnsiString __fastcall GetSelText(void);
  244.     virtual void __fastcall SetSelLength(int Value);
  245.     virtual void __fastcall SetSelStart(int Value);
  246.     __property bool AutoSelect = {read=FAutoSelect, write=FAutoSelect, default=1};
  247.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  248.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  249.     __property TEditCharCase CharCase = {read=FCharCase, write=SetCharCase, default=0};
  250.     __property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
  251.     __property int MaxLength = {read=FMaxLength, write=SetMaxLength, default=0};
  252.     __property bool OEMConvert = {read=FOEMConvert, write=SetOEMConvert, default=0};
  253.     __property char PasswordChar = {read=FPasswordChar, write=SetPasswordChar, default=0};
  254.     __property ParentColor ;
  255.     __property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, default=0};
  256.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  257.     
  258. public:
  259.     __fastcall virtual TCustomEdit(Classes::TComponent* AOwner);
  260.     virtual void __fastcall Clear(void);
  261.     void __fastcall ClearSelection(void);
  262.     void __fastcall CopyToClipboard(void);
  263.     void __fastcall CutToClipboard(void);
  264.     void __fastcall PasteFromClipboard(void);
  265.     void __fastcall Undo(void);
  266.     void __fastcall ClearUndo(void);
  267.     virtual int __fastcall GetSelTextBuf(char * Buffer, int BufSize);
  268.     void __fastcall SelectAll(void);
  269.     void __fastcall SetSelTextBuf(char * Buffer);
  270.     __property bool CanUndo = {read=GetCanUndo, nodefault};
  271.     __property bool Modified = {read=GetModified, write=SetModified, nodefault};
  272.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  273.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  274.     __property System::AnsiString SelText = {read=GetSelText, write=SetSelText};
  275.     __property Text ;
  276.     
  277. __published:
  278.     __property TabStop ;
  279. public:
  280.     /* TWinControl.CreateParented */ __fastcall TCustomEdit(HWND ParentWindow) : Controls::TWinControl(
  281.         ParentWindow) { }
  282.     /* TWinControl.Destroy */ __fastcall virtual ~TCustomEdit(void) { }
  283.     
  284. };
  285.  
  286. class DELPHICLASS TEdit;
  287. class PASCALIMPLEMENTATION TEdit : public Stdctrls::TCustomEdit 
  288. {
  289.     typedef Stdctrls::TCustomEdit inherited;
  290.     
  291. __published:
  292.     __property AutoSelect ;
  293.     __property AutoSize ;
  294.     __property BorderStyle ;
  295.     __property CharCase ;
  296.     __property Color ;
  297.     __property Ctl3D ;
  298.     __property DragCursor ;
  299.     __property DragMode ;
  300.     __property Enabled ;
  301.     __property Font ;
  302.     __property HideSelection ;
  303.     __property ImeMode ;
  304.     __property ImeName ;
  305.     __property MaxLength ;
  306.     __property OEMConvert ;
  307.     __property ParentColor ;
  308.     __property ParentCtl3D ;
  309.     __property ParentFont ;
  310.     __property ParentShowHint ;
  311.     __property PasswordChar ;
  312.     __property PopupMenu ;
  313.     __property ReadOnly ;
  314.     __property ShowHint ;
  315.     __property TabOrder ;
  316.     __property TabStop ;
  317.     __property Text ;
  318.     __property Visible ;
  319.     __property OnChange ;
  320.     __property OnClick ;
  321.     __property OnDblClick ;
  322.     __property OnDragDrop ;
  323.     __property OnDragOver ;
  324.     __property OnEndDrag ;
  325.     __property OnEnter ;
  326.     __property OnExit ;
  327.     __property OnKeyDown ;
  328.     __property OnKeyPress ;
  329.     __property OnKeyUp ;
  330.     __property OnMouseDown ;
  331.     __property OnMouseMove ;
  332.     __property OnMouseUp ;
  333.     __property OnStartDrag ;
  334. public:
  335.     /* TCustomEdit.Create */ __fastcall virtual TEdit(Classes::TComponent* AOwner) : Stdctrls::TCustomEdit(
  336.         AOwner) { }
  337.     
  338. public:
  339.     /* TWinControl.CreateParented */ __fastcall TEdit(HWND ParentWindow) : Stdctrls::TCustomEdit(ParentWindow
  340.         ) { }
  341.     /* TWinControl.Destroy */ __fastcall virtual ~TEdit(void) { }
  342.     
  343. };
  344.  
  345. enum TScrollStyle { ssNone, ssHorizontal, ssVertical, ssBoth };
  346.  
  347. class DELPHICLASS TCustomMemo;
  348. class PASCALIMPLEMENTATION TCustomMemo : public Stdctrls::TCustomEdit 
  349. {
  350.     typedef Stdctrls::TCustomEdit inherited;
  351.     
  352. private:
  353.     Classes::TStrings* FLines;
  354.     TAlignment FAlignment;
  355.     TScrollStyle FScrollBars;
  356.     bool FWordWrap;
  357.     bool FWantReturns;
  358.     bool FWantTabs;
  359.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  360.     HIDESBASE MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
  361.     
  362. protected:
  363.     virtual tagPOINT __fastcall GetCaretPos(void);
  364.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  365.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  366.     DYNAMIC void __fastcall KeyPress(char &Key);
  367.     virtual void __fastcall Loaded(void);
  368.     void __fastcall SetAlignment(Classes::TAlignment Value);
  369.     void __fastcall SetLines(Classes::TStrings* Value);
  370.     void __fastcall SetScrollBars(TScrollStyle Value);
  371.     void __fastcall SetWordWrap(bool Value);
  372.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  373.     __property TScrollStyle ScrollBars = {read=FScrollBars, write=SetScrollBars, default=0};
  374.     __property bool WantReturns = {read=FWantReturns, write=FWantReturns, default=1};
  375.     __property bool WantTabs = {read=FWantTabs, write=FWantTabs, default=0};
  376.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=1};
  377.     
  378. public:
  379.     __fastcall virtual TCustomMemo(Classes::TComponent* AOwner);
  380.     __fastcall virtual ~TCustomMemo(void);
  381.     __property tagPOINT CaretPos = {read=GetCaretPos};
  382.     __property Classes::TStrings* Lines = {read=FLines, write=SetLines};
  383. public:
  384.     /* TWinControl.CreateParented */ __fastcall TCustomMemo(HWND ParentWindow) : Stdctrls::TCustomEdit(
  385.         ParentWindow) { }
  386.     
  387. };
  388.  
  389. class DELPHICLASS TMemo;
  390. class PASCALIMPLEMENTATION TMemo : public Stdctrls::TCustomMemo 
  391. {
  392.     typedef Stdctrls::TCustomMemo inherited;
  393.     
  394. __published:
  395.     __property Align ;
  396.     __property Alignment ;
  397.     __property BorderStyle ;
  398.     __property Color ;
  399.     __property Ctl3D ;
  400.     __property DragCursor ;
  401.     __property DragMode ;
  402.     __property Enabled ;
  403.     __property Font ;
  404.     __property HideSelection ;
  405.     __property ImeMode ;
  406.     __property ImeName ;
  407.     __property Lines ;
  408.     __property MaxLength ;
  409.     __property OEMConvert ;
  410.     __property ParentColor ;
  411.     __property ParentCtl3D ;
  412.     __property ParentFont ;
  413.     __property ParentShowHint ;
  414.     __property PopupMenu ;
  415.     __property ReadOnly ;
  416.     __property ScrollBars ;
  417.     __property ShowHint ;
  418.     __property TabOrder ;
  419.     __property TabStop ;
  420.     __property Visible ;
  421.     __property WantReturns ;
  422.     __property WantTabs ;
  423.     __property WordWrap ;
  424.     __property OnChange ;
  425.     __property OnClick ;
  426.     __property OnDblClick ;
  427.     __property OnDragDrop ;
  428.     __property OnDragOver ;
  429.     __property OnEndDrag ;
  430.     __property OnEnter ;
  431.     __property OnExit ;
  432.     __property OnKeyDown ;
  433.     __property OnKeyPress ;
  434.     __property OnKeyUp ;
  435.     __property OnMouseDown ;
  436.     __property OnMouseMove ;
  437.     __property OnMouseUp ;
  438.     __property OnStartDrag ;
  439. public:
  440.     /* TCustomMemo.Create */ __fastcall virtual TMemo(Classes::TComponent* AOwner) : Stdctrls::TCustomMemo(
  441.         AOwner) { }
  442.     /* TCustomMemo.Destroy */ __fastcall virtual ~TMemo(void) { }
  443.     
  444. public:
  445.     /* TWinControl.CreateParented */ __fastcall TMemo(HWND ParentWindow) : Stdctrls::TCustomMemo(ParentWindow
  446.         ) { }
  447.     
  448. };
  449.  
  450. enum TComboBoxStyle { csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable };
  451.     
  452.  
  453. enum StdCtrls__9 { odSelected, odGrayed, odDisabled, odChecked, odFocused };
  454.  
  455. typedef Set<StdCtrls__9, odSelected, odFocused>  TOwnerDrawState;
  456.  
  457. typedef void __fastcall (__closure *TDrawItemEvent)(Controls::TWinControl* Control, int Index, const 
  458.     Windows::TRect &Rect, TOwnerDrawState State);
  459.  
  460. typedef void __fastcall (__closure *TMeasureItemEvent)(Controls::TWinControl* Control, int Index, int 
  461.     &Height);
  462.  
  463. class DELPHICLASS TCustomComboBox;
  464. class PASCALIMPLEMENTATION TCustomComboBox : public Controls::TWinControl 
  465. {
  466.     typedef Controls::TWinControl inherited;
  467.     
  468. private:
  469.     Classes::TStrings* FItems;
  470.     Graphics::TCanvas* FCanvas;
  471.     TEditCharCase FCharCase;
  472.     bool FSorted;
  473.     TComboBoxStyle FStyle;
  474.     int FItemHeight;
  475.     int FMaxLength;
  476.     int FDropDownCount;
  477.     HWND FEditHandle;
  478.     HWND FListHandle;
  479.     void *FEditInstance;
  480.     void *FListInstance;
  481.     void *FDefEditProc;
  482.     void *FDefListProc;
  483.     bool FIsFocused;
  484.     bool FFocusChanged;
  485.     Classes::TStringList* FSaveItems;
  486.     int FSaveIndex;
  487.     Classes::TNotifyEvent FOnChange;
  488.     Classes::TNotifyEvent FOnDropDown;
  489.     TDrawItemEvent FOnDrawItem;
  490.     TMeasureItemEvent FOnMeasureItem;
  491.     void __fastcall AdjustDropDown(void);
  492.     void __fastcall EditWndProc(Messages::TMessage &Message);
  493.     bool __fastcall GetDroppedDown(void);
  494.     int __fastcall GetItemIndex(void);
  495.     int __fastcall GetSelLength(void);
  496.     int __fastcall GetSelStart(void);
  497.     System::AnsiString __fastcall GetSelText(void);
  498.     void __fastcall ListWndProc(Messages::TMessage &Message);
  499.     void __fastcall SetCharCase(TEditCharCase Value);
  500.     void __fastcall SetDroppedDown(bool Value);
  501.     void __fastcall SetItems(Classes::TStrings* Value);
  502.     void __fastcall SetItemIndex(int Value);
  503.     void __fastcall SetSelLength(int Value);
  504.     void __fastcall SetSelStart(int Value);
  505.     void __fastcall SetSelText(const System::AnsiString Value);
  506.     void __fastcall SetSorted(bool Value);
  507.     int __fastcall GetItemHeight(void);
  508.     void __fastcall SetItemHeight(int Value);
  509.     void __fastcall SetMaxLength(int Value);
  510.     MESSAGE void __fastcall WMCreate(Messages::TWMCreate &Message);
  511.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  512.     MESSAGE void __fastcall CMCancelMode(Controls::TCMCancelMode &Message);
  513.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  514.     HIDESBASE MESSAGE void __fastcall CMParentColorChanged(Messages::TMessage &Message);
  515.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  516.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  517.     MESSAGE void __fastcall CNMeasureItem(Messages::TWMMeasureItem &Message);
  518.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  519.     HIDESBASE MESSAGE void __fastcall WMDrawItem(Messages::TWMDrawItem &Message);
  520.     HIDESBASE MESSAGE void __fastcall WMMeasureItem(Messages::TWMMeasureItem &Message);
  521.     HIDESBASE MESSAGE void __fastcall WMDeleteItem(Messages::TWMDeleteItem &Message);
  522.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  523.     
  524. protected:
  525.     virtual void __fastcall ComboWndProc(Messages::TMessage &Message, HWND ComboWnd, void * ComboProc);
  526.         
  527.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  528.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  529.     virtual void __fastcall CreateWnd(void);
  530.     virtual void __fastcall DestroyWnd(void);
  531.     virtual void __fastcall DrawItem(int Index, const Windows::TRect &Rect, TOwnerDrawState State);
  532.     virtual void __fastcall MeasureItem(int Index, int &Height);
  533.     DYNAMIC void __fastcall Change(void);
  534.     DYNAMIC void __fastcall DropDown(void);
  535.     virtual void __fastcall SetStyle(TComboBoxStyle Value);
  536.     __property int DropDownCount = {read=FDropDownCount, write=FDropDownCount, default=8};
  537.     __property HWND EditHandle = {read=FEditHandle, nodefault};
  538.     __property int ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault};
  539.     __property HWND ListHandle = {read=FListHandle, nodefault};
  540.     __property int MaxLength = {read=FMaxLength, write=SetMaxLength, default=0};
  541.     __property ParentColor ;
  542.     __property bool Sorted = {read=FSorted, write=SetSorted, default=0};
  543.     __property TComboBoxStyle Style = {read=FStyle, write=SetStyle, default=0};
  544.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  545.     __property Classes::TNotifyEvent OnDropDown = {read=FOnDropDown, write=FOnDropDown};
  546.     __property TDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  547.     __property TMeasureItemEvent OnMeasureItem = {read=FOnMeasureItem, write=FOnMeasureItem};
  548.     
  549. public:
  550.     __fastcall virtual TCustomComboBox(Classes::TComponent* AOwner);
  551.     __fastcall virtual ~TCustomComboBox(void);
  552.     void __fastcall Clear(void);
  553.     void __fastcall SelectAll(void);
  554.     __property TEditCharCase CharCase = {read=FCharCase, write=SetCharCase, default=0};
  555.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  556.     __property bool DroppedDown = {read=GetDroppedDown, write=SetDroppedDown, nodefault};
  557.     __property Classes::TStrings* Items = {read=FItems, write=SetItems};
  558.     __property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
  559.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  560.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  561.     __property System::AnsiString SelText = {read=GetSelText, write=SetSelText};
  562.     
  563. __published:
  564.     __property TabStop ;
  565. public:
  566.     /* TWinControl.CreateParented */ __fastcall TCustomComboBox(HWND ParentWindow) : Controls::TWinControl(
  567.         ParentWindow) { }
  568.     
  569. };
  570.  
  571. class DELPHICLASS TComboBox;
  572. class PASCALIMPLEMENTATION TComboBox : public Stdctrls::TCustomComboBox 
  573. {
  574.     typedef Stdctrls::TCustomComboBox inherited;
  575.     
  576. __published:
  577.     __property Style ;
  578.     __property Color ;
  579.     __property Ctl3D ;
  580.     __property DragMode ;
  581.     __property DragCursor ;
  582.     __property DropDownCount ;
  583.     __property Enabled ;
  584.     __property Font ;
  585.     __property ImeMode ;
  586.     __property ImeName ;
  587.     __property ItemHeight ;
  588.     __property Items ;
  589.     __property MaxLength ;
  590.     __property ParentColor ;
  591.     __property ParentCtl3D ;
  592.     __property ParentFont ;
  593.     __property ParentShowHint ;
  594.     __property PopupMenu ;
  595.     __property ShowHint ;
  596.     __property Sorted ;
  597.     __property TabOrder ;
  598.     __property TabStop ;
  599.     __property Text ;
  600.     __property Visible ;
  601.     __property OnChange ;
  602.     __property OnClick ;
  603.     __property OnDblClick ;
  604.     __property OnDragDrop ;
  605.     __property OnDragOver ;
  606.     __property OnDrawItem ;
  607.     __property OnDropDown ;
  608.     __property OnEndDrag ;
  609.     __property OnEnter ;
  610.     __property OnExit ;
  611.     __property OnKeyDown ;
  612.     __property OnKeyPress ;
  613.     __property OnKeyUp ;
  614.     __property OnMeasureItem ;
  615.     __property OnStartDrag ;
  616. public:
  617.     /* TCustomComboBox.Create */ __fastcall virtual TComboBox(Classes::TComponent* AOwner) : Stdctrls::
  618.         TCustomComboBox(AOwner) { }
  619.     /* TCustomComboBox.Destroy */ __fastcall virtual ~TComboBox(void) { }
  620.     
  621. public:
  622.     /* TWinControl.CreateParented */ __fastcall TComboBox(HWND ParentWindow) : Stdctrls::TCustomComboBox(
  623.         ParentWindow) { }
  624.     
  625. };
  626.  
  627. class DELPHICLASS TButtonControl;
  628. class PASCALIMPLEMENTATION TButtonControl : public Controls::TWinControl 
  629. {
  630.     typedef Controls::TWinControl inherited;
  631.     
  632. private:
  633.     bool FClicksDisabled;
  634.     
  635. protected:
  636.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  637.     
  638. public:
  639.     __fastcall virtual TButtonControl(Classes::TComponent* AOwner);
  640. public:
  641.     /* TWinControl.CreateParented */ __fastcall TButtonControl(HWND ParentWindow) : Controls::TWinControl(
  642.         ParentWindow) { }
  643.     /* TWinControl.Destroy */ __fastcall virtual ~TButtonControl(void) { }
  644.     
  645. };
  646.  
  647. class DELPHICLASS TButton;
  648. class PASCALIMPLEMENTATION TButton : public Stdctrls::TButtonControl 
  649. {
  650.     typedef Stdctrls::TButtonControl inherited;
  651.     
  652. private:
  653.     bool FDefault;
  654.     bool FCancel;
  655.     bool FActive;
  656.     Forms::TModalResult FModalResult;
  657.     void __fastcall SetDefault(bool Value);
  658.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  659.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  660.     HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Message);
  661.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  662.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  663.     
  664. protected:
  665.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  666.     virtual void __fastcall CreateWnd(void);
  667.     virtual void __fastcall SetButtonStyle(bool ADefault);
  668.     
  669. public:
  670.     __fastcall virtual TButton(Classes::TComponent* AOwner);
  671.     DYNAMIC void __fastcall Click(void);
  672.     
  673. __published:
  674.     __property bool Cancel = {read=FCancel, write=FCancel, default=0};
  675.     __property Caption ;
  676.     __property bool Default = {read=FDefault, write=SetDefault, default=0};
  677.     __property DragCursor ;
  678.     __property DragMode ;
  679.     __property Enabled ;
  680.     __property Font ;
  681.     __property Forms::TModalResult ModalResult = {read=FModalResult, write=FModalResult, default=0};
  682.     __property ParentFont ;
  683.     __property ParentShowHint ;
  684.     __property PopupMenu ;
  685.     __property ShowHint ;
  686.     __property TabOrder ;
  687.     __property TabStop ;
  688.     __property Visible ;
  689.     __property OnClick ;
  690.     __property OnDragDrop ;
  691.     __property OnDragOver ;
  692.     __property OnEndDrag ;
  693.     __property OnEnter ;
  694.     __property OnExit ;
  695.     __property OnKeyDown ;
  696.     __property OnKeyPress ;
  697.     __property OnKeyUp ;
  698.     __property OnMouseDown ;
  699.     __property OnMouseMove ;
  700.     __property OnMouseUp ;
  701.     __property OnStartDrag ;
  702. public:
  703.     /* TWinControl.CreateParented */ __fastcall TButton(HWND ParentWindow) : Stdctrls::TButtonControl(ParentWindow
  704.         ) { }
  705.     /* TWinControl.Destroy */ __fastcall virtual ~TButton(void) { }
  706.     
  707. };
  708.  
  709. enum TCheckBoxState { cbUnchecked, cbChecked, cbGrayed };
  710.  
  711. class DELPHICLASS TCustomCheckBox;
  712. class PASCALIMPLEMENTATION TCustomCheckBox : public Stdctrls::TButtonControl 
  713. {
  714.     typedef Stdctrls::TButtonControl inherited;
  715.     
  716. private:
  717.     TAlignment FAlignment;
  718.     bool FAllowGrayed;
  719.     TCheckBoxState FState;
  720.     bool __fastcall GetChecked(void);
  721.     void __fastcall SetAlignment(Classes::TLeftRight Value);
  722.     void __fastcall SetChecked(bool Value);
  723.     void __fastcall SetState(TCheckBoxState Value);
  724.     HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  725.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Message);
  726.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  727.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  728.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  729.     
  730. protected:
  731.     virtual void __fastcall Toggle(void);
  732.     DYNAMIC void __fastcall Click(void);
  733.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  734.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  735.     virtual void __fastcall CreateWnd(void);
  736.     __property Classes::TLeftRight Alignment = {read=FAlignment, write=SetAlignment, default=1};
  737.     __property bool AllowGrayed = {read=FAllowGrayed, write=FAllowGrayed, default=0};
  738.     __property bool Checked = {read=GetChecked, write=SetChecked, stored=false, nodefault};
  739.     __property TCheckBoxState State = {read=FState, write=SetState, default=0};
  740.     
  741. public:
  742.     __fastcall virtual TCustomCheckBox(Classes::TComponent* AOwner);
  743.     
  744. __published:
  745.     __property TabStop ;
  746. public:
  747.     /* TWinControl.CreateParented */ __fastcall TCustomCheckBox(HWND ParentWindow) : Stdctrls::TButtonControl(
  748.         ParentWindow) { }
  749.     /* TWinControl.Destroy */ __fastcall virtual ~TCustomCheckBox(void) { }
  750.     
  751. };
  752.  
  753. class DELPHICLASS TCheckBox;
  754. class PASCALIMPLEMENTATION TCheckBox : public Stdctrls::TCustomCheckBox 
  755. {
  756.     typedef Stdctrls::TCustomCheckBox inherited;
  757.     
  758. __published:
  759.     __property Alignment ;
  760.     __property AllowGrayed ;
  761.     __property Caption ;
  762.     __property Checked ;
  763.     __property Color ;
  764.     __property Ctl3D ;
  765.     __property DragCursor ;
  766.     __property DragMode ;
  767.     __property Enabled ;
  768.     __property Font ;
  769.     __property ParentColor ;
  770.     __property ParentCtl3D ;
  771.     __property ParentFont ;
  772.     __property ParentShowHint ;
  773.     __property PopupMenu ;
  774.     __property ShowHint ;
  775.     __property State ;
  776.     __property TabOrder ;
  777.     __property TabStop ;
  778.     __property Visible ;
  779.     __property OnClick ;
  780.     __property OnDragDrop ;
  781.     __property OnDragOver ;
  782.     __property OnEndDrag ;
  783.     __property OnEnter ;
  784.     __property OnExit ;
  785.     __property OnKeyDown ;
  786.     __property OnKeyPress ;
  787.     __property OnKeyUp ;
  788.     __property OnMouseDown ;
  789.     __property OnMouseMove ;
  790.     __property OnMouseUp ;
  791.     __property OnStartDrag ;
  792. public:
  793.     /* TCustomCheckBox.Create */ __fastcall virtual TCheckBox(Classes::TComponent* AOwner) : Stdctrls::
  794.         TCustomCheckBox(AOwner) { }
  795.     
  796. public:
  797.     /* TWinControl.CreateParented */ __fastcall TCheckBox(HWND ParentWindow) : Stdctrls::TCustomCheckBox(
  798.         ParentWindow) { }
  799.     /* TWinControl.Destroy */ __fastcall virtual ~TCheckBox(void) { }
  800.     
  801. };
  802.  
  803. class DELPHICLASS TRadioButton;
  804. class PASCALIMPLEMENTATION TRadioButton : public Stdctrls::TButtonControl 
  805. {
  806.     typedef Stdctrls::TButtonControl inherited;
  807.     
  808. private:
  809.     TAlignment FAlignment;
  810.     bool FChecked;
  811.     void __fastcall SetAlignment(Classes::TLeftRight Value);
  812.     HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  813.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  814.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  815.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  816.     
  817. protected:
  818.     void __fastcall SetChecked(bool Value);
  819.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  820.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  821.     virtual void __fastcall CreateWnd(void);
  822.     
  823. public:
  824.     __fastcall virtual TRadioButton(Classes::TComponent* AOwner);
  825.     
  826. __published:
  827.     __property Classes::TLeftRight Alignment = {read=FAlignment, write=SetAlignment, default=1};
  828.     __property Caption ;
  829.     __property bool Checked = {read=FChecked, write=SetChecked, default=0};
  830.     __property Color ;
  831.     __property Ctl3D ;
  832.     __property DragCursor ;
  833.     __property DragMode ;
  834.     __property Enabled ;
  835.     __property Font ;
  836.     __property ParentColor ;
  837.     __property ParentCtl3D ;
  838.     __property ParentFont ;
  839.     __property ParentShowHint ;
  840.     __property PopupMenu ;
  841.     __property ShowHint ;
  842.     __property TabOrder ;
  843.     __property TabStop ;
  844.     __property Visible ;
  845.     __property OnClick ;
  846.     __property OnDblClick ;
  847.     __property OnDragDrop ;
  848.     __property OnDragOver ;
  849.     __property OnEndDrag ;
  850.     __property OnEnter ;
  851.     __property OnExit ;
  852.     __property OnKeyDown ;
  853.     __property OnKeyPress ;
  854.     __property OnKeyUp ;
  855.     __property OnMouseDown ;
  856.     __property OnMouseMove ;
  857.     __property OnMouseUp ;
  858.     __property OnStartDrag ;
  859. public:
  860.     /* TWinControl.CreateParented */ __fastcall TRadioButton(HWND ParentWindow) : Stdctrls::TButtonControl(
  861.         ParentWindow) { }
  862.     /* TWinControl.Destroy */ __fastcall virtual ~TRadioButton(void) { }
  863.     
  864. };
  865.  
  866. enum TListBoxStyle { lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable };
  867.  
  868. class DELPHICLASS TCustomListBox;
  869. class PASCALIMPLEMENTATION TCustomListBox : public Controls::TWinControl 
  870. {
  871.     typedef Controls::TWinControl inherited;
  872.     
  873. private:
  874.     Classes::TStrings* FItems;
  875.     TFormBorderStyle FBorderStyle;
  876.     Graphics::TCanvas* FCanvas;
  877.     int FColumns;
  878.     int FItemHeight;
  879.     TListBoxStyle FStyle;
  880.     bool FIntegralHeight;
  881.     bool FMultiSelect;
  882.     bool FSorted;
  883.     bool FExtendedSelect;
  884.     int FTabWidth;
  885.     Classes::TStringList* FSaveItems;
  886.     int FSaveTopIndex;
  887.     int FSaveItemIndex;
  888.     TDrawItemEvent FOnDrawItem;
  889.     TMeasureItemEvent FOnMeasureItem;
  890.     int __fastcall GetItemHeight(void);
  891.     int __fastcall GetItemIndex(void);
  892.     int __fastcall GetSelCount(void);
  893.     bool __fastcall GetSelected(int Index);
  894.     int __fastcall GetTopIndex(void);
  895.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  896.     void __fastcall SetColumnWidth(void);
  897.     void __fastcall SetColumns(int Value);
  898.     void __fastcall SetExtendedSelect(bool Value);
  899.     void __fastcall SetIntegralHeight(bool Value);
  900.     void __fastcall SetItemHeight(int Value);
  901.     void __fastcall SetItems(Classes::TStrings* Value);
  902.     void __fastcall SetItemIndex(int Value);
  903.     void __fastcall SetMultiSelect(bool Value);
  904.     void __fastcall SetSelected(int Index, bool Value);
  905.     void __fastcall SetSorted(bool Value);
  906.     void __fastcall SetStyle(TListBoxStyle Value);
  907.     void __fastcall SetTabWidth(int Value);
  908.     void __fastcall SetTopIndex(int Value);
  909.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  910.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  911.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  912.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  913.     MESSAGE void __fastcall CNMeasureItem(Messages::TWMMeasureItem &Message);
  914.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  915.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  916.     
  917. protected:
  918.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  919.     virtual void __fastcall CreateWnd(void);
  920.     virtual void __fastcall DestroyWnd(void);
  921.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  922.     DYNAMIC void __fastcall DragCanceled(void);
  923.     virtual void __fastcall DrawItem(int Index, const Windows::TRect &Rect, TOwnerDrawState State);
  924.     virtual void __fastcall MeasureItem(int Index, int &Height);
  925.     DYNAMIC int __fastcall GetItemData(int Index);
  926.     DYNAMIC void __fastcall SetItemData(int Index, int AData);
  927.     DYNAMIC void __fastcall ResetContent(void);
  928.     DYNAMIC void __fastcall DeleteString(int Index);
  929.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  930.     __property int Columns = {read=FColumns, write=SetColumns, default=0};
  931.     __property bool ExtendedSelect = {read=FExtendedSelect, write=SetExtendedSelect, default=1};
  932.     __property bool IntegralHeight = {read=FIntegralHeight, write=SetIntegralHeight, default=0};
  933.     __property int ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault};
  934.     __property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
  935.     __property ParentColor ;
  936.     __property bool Sorted = {read=FSorted, write=SetSorted, default=0};
  937.     __property TListBoxStyle Style = {read=FStyle, write=SetStyle, default=0};
  938.     __property int TabWidth = {read=FTabWidth, write=SetTabWidth, default=0};
  939.     __property TDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  940.     __property TMeasureItemEvent OnMeasureItem = {read=FOnMeasureItem, write=FOnMeasureItem};
  941.     
  942. public:
  943.     __fastcall virtual TCustomListBox(Classes::TComponent* AOwner);
  944.     __fastcall virtual ~TCustomListBox(void);
  945.     void __fastcall Clear(void);
  946.     int __fastcall ItemAtPos(const tagPOINT &Pos, bool Existing);
  947.     Windows::TRect __fastcall ItemRect(int Index);
  948.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  949.     __property Classes::TStrings* Items = {read=FItems, write=SetItems};
  950.     __property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
  951.     __property int SelCount = {read=GetSelCount, nodefault};
  952.     __property bool Selected[int Index] = {read=GetSelected, write=SetSelected};
  953.     __property int TopIndex = {read=GetTopIndex, write=SetTopIndex, nodefault};
  954.     
  955. __published:
  956.     __property TabStop ;
  957. public:
  958.     /* TWinControl.CreateParented */ __fastcall TCustomListBox(HWND ParentWindow) : Controls::TWinControl(
  959.         ParentWindow) { }
  960.     
  961. };
  962.  
  963. class DELPHICLASS TListBox;
  964. class PASCALIMPLEMENTATION TListBox : public Stdctrls::TCustomListBox 
  965. {
  966.     typedef Stdctrls::TCustomListBox inherited;
  967.     
  968. __published:
  969.     __property Align ;
  970.     __property BorderStyle ;
  971.     __property Color ;
  972.     __property Columns ;
  973.     __property Ctl3D ;
  974.     __property DragCursor ;
  975.     __property DragMode ;
  976.     __property Enabled ;
  977.     __property ExtendedSelect ;
  978.     __property Font ;
  979.     __property ImeMode ;
  980.     __property ImeName ;
  981.     __property IntegralHeight ;
  982.     __property ItemHeight ;
  983.     __property Items ;
  984.     __property MultiSelect ;
  985.     __property ParentColor ;
  986.     __property ParentCtl3D ;
  987.     __property ParentFont ;
  988.     __property ParentShowHint ;
  989.     __property PopupMenu ;
  990.     __property ShowHint ;
  991.     __property Sorted ;
  992.     __property Style ;
  993.     __property TabOrder ;
  994.     __property TabStop ;
  995.     __property TabWidth ;
  996.     __property Visible ;
  997.     __property OnClick ;
  998.     __property OnDblClick ;
  999.     __property OnDragDrop ;
  1000.     __property OnDragOver ;
  1001.     __property OnDrawItem ;
  1002.     __property OnEndDrag ;
  1003.     __property OnEnter ;
  1004.     __property OnExit ;
  1005.     __property OnKeyDown ;
  1006.     __property OnKeyPress ;
  1007.     __property OnKeyUp ;
  1008.     __property OnMeasureItem ;
  1009.     __property OnMouseDown ;
  1010.     __property OnMouseMove ;
  1011.     __property OnMouseUp ;
  1012.     __property OnStartDrag ;
  1013. public:
  1014.     /* TCustomListBox.Create */ __fastcall virtual TListBox(Classes::TComponent* AOwner) : Stdctrls::TCustomListBox(
  1015.         AOwner) { }
  1016.     /* TCustomListBox.Destroy */ __fastcall virtual ~TListBox(void) { }
  1017.     
  1018. public:
  1019.     /* TWinControl.CreateParented */ __fastcall TListBox(HWND ParentWindow) : Stdctrls::TCustomListBox(
  1020.         ParentWindow) { }
  1021.     
  1022. };
  1023.  
  1024. enum TScrollCode { scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, 
  1025.     scEndScroll };
  1026.  
  1027. typedef void __fastcall (__closure *TScrollEvent)(System::TObject* Sender, TScrollCode ScrollCode, int 
  1028.     &ScrollPos);
  1029.  
  1030. class DELPHICLASS TScrollBar;
  1031. class PASCALIMPLEMENTATION TScrollBar : public Controls::TWinControl 
  1032. {
  1033.     typedef Controls::TWinControl inherited;
  1034.     
  1035. private:
  1036.     TScrollBarKind FKind;
  1037.     int FPosition;
  1038.     int FMin;
  1039.     int FMax;
  1040.     int FPageSize;
  1041.     Forms::TScrollBarInc FSmallChange;
  1042.     Forms::TScrollBarInc FLargeChange;
  1043.     Classes::TNotifyEvent FOnChange;
  1044.     TScrollEvent FOnScroll;
  1045.     void __fastcall DoScroll(Messages::TWMScroll &Message);
  1046.     void __fastcall SetKind(Forms::TScrollBarKind Value);
  1047.     void __fastcall SetMax(int Value);
  1048.     void __fastcall SetMin(int Value);
  1049.     void __fastcall SetPosition(int Value);
  1050.     void __fastcall SetPageSize(int Value);
  1051.     MESSAGE void __fastcall CNHScroll(Messages::TWMScroll &Message);
  1052.     MESSAGE void __fastcall CNVScroll(Messages::TWMScroll &Message);
  1053.     MESSAGE void __fastcall CNCtlColorScrollBar(Messages::TMessage &Message);
  1054.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  1055.     
  1056. protected:
  1057.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1058.     virtual void __fastcall CreateWnd(void);
  1059.     DYNAMIC void __fastcall Change(void);
  1060.     DYNAMIC void __fastcall Scroll(TScrollCode ScrollCode, int &ScrollPos);
  1061.     
  1062. public:
  1063.     __fastcall virtual TScrollBar(Classes::TComponent* AOwner);
  1064.     void __fastcall SetParams(int APosition, int AMin, int AMax);
  1065.     
  1066. __published:
  1067.     __property Align ;
  1068.     __property Ctl3D ;
  1069.     __property DragCursor ;
  1070.     __property DragMode ;
  1071.     __property Enabled ;
  1072.     __property Forms::TScrollBarKind Kind = {read=FKind, write=SetKind, default=0};
  1073.     __property Forms::TScrollBarInc LargeChange = {read=FLargeChange, write=FLargeChange, default=1};
  1074.     __property int Max = {read=FMax, write=SetMax, default=100};
  1075.     __property int Min = {read=FMin, write=SetMin, default=0};
  1076.     __property int PageSize = {read=FPageSize, write=SetPageSize, nodefault};
  1077.     __property ParentCtl3D ;
  1078.     __property ParentShowHint ;
  1079.     __property PopupMenu ;
  1080.     __property int Position = {read=FPosition, write=SetPosition, default=0};
  1081.     __property ShowHint ;
  1082.     __property Forms::TScrollBarInc SmallChange = {read=FSmallChange, write=FSmallChange, default=1};
  1083.     __property TabOrder ;
  1084.     __property TabStop ;
  1085.     __property Visible ;
  1086.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  1087.     __property OnDragDrop ;
  1088.     __property OnDragOver ;
  1089.     __property OnEndDrag ;
  1090.     __property OnEnter ;
  1091.     __property OnExit ;
  1092.     __property OnKeyDown ;
  1093.     __property OnKeyPress ;
  1094.     __property OnKeyUp ;
  1095.     __property TScrollEvent OnScroll = {read=FOnScroll, write=FOnScroll};
  1096.     __property OnStartDrag ;
  1097. public:
  1098.     /* TWinControl.CreateParented */ __fastcall TScrollBar(HWND ParentWindow) : Controls::TWinControl(ParentWindow
  1099.         ) { }
  1100.     /* TWinControl.Destroy */ __fastcall virtual ~TScrollBar(void) { }
  1101.     
  1102. };
  1103.  
  1104. enum TStaticBorderStyle { sbsNone, sbsSingle, sbsSunken };
  1105.  
  1106. class DELPHICLASS TCustomStaticText;
  1107. class PASCALIMPLEMENTATION TCustomStaticText : public Controls::TWinControl 
  1108. {
  1109.     typedef Controls::TWinControl inherited;
  1110.     
  1111. private:
  1112.     TAlignment FAlignment;
  1113.     bool FAutoSize;
  1114.     TStaticBorderStyle FBorderStyle;
  1115.     Controls::TWinControl* FFocusControl;
  1116.     bool FShowAccelChar;
  1117.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  1118.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  1119.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  1120.     void __fastcall AdjustBounds(void);
  1121.     void __fastcall SetAlignment(Classes::TAlignment Value);
  1122.     void __fastcall SetAutoSize(bool Value);
  1123.     void __fastcall SetBorderStyle(TStaticBorderStyle Value);
  1124.     void __fastcall SetFocusControl(Controls::TWinControl* Value);
  1125.     void __fastcall SetShowAccelChar(bool Value);
  1126.     
  1127. protected:
  1128.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1129.     virtual void __fastcall Loaded(void);
  1130.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  1131.         );
  1132.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  1133.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  1134.     __property TStaticBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=0};
  1135.     __property Controls::TWinControl* FocusControl = {read=FFocusControl, write=SetFocusControl};
  1136.     __property bool ShowAccelChar = {read=FShowAccelChar, write=SetShowAccelChar, default=1};
  1137.     
  1138. public:
  1139.     __fastcall virtual TCustomStaticText(Classes::TComponent* AOwner);
  1140. public:
  1141.     /* TWinControl.CreateParented */ __fastcall TCustomStaticText(HWND ParentWindow) : Controls::TWinControl(
  1142.         ParentWindow) { }
  1143.     /* TWinControl.Destroy */ __fastcall virtual ~TCustomStaticText(void) { }
  1144.     
  1145. };
  1146.  
  1147. class DELPHICLASS TStaticText;
  1148. class PASCALIMPLEMENTATION TStaticText : public Stdctrls::TCustomStaticText 
  1149. {
  1150.     typedef Stdctrls::TCustomStaticText inherited;
  1151.     
  1152. __published:
  1153.     __property Align ;
  1154.     __property Alignment ;
  1155.     __property AutoSize ;
  1156.     __property BorderStyle ;
  1157.     __property Caption ;
  1158.     __property Color ;
  1159.     __property DragCursor ;
  1160.     __property DragMode ;
  1161.     __property Enabled ;
  1162.     __property FocusControl ;
  1163.     __property Font ;
  1164.     __property ParentColor ;
  1165.     __property ParentFont ;
  1166.     __property ParentShowHint ;
  1167.     __property PopupMenu ;
  1168.     __property ShowAccelChar ;
  1169.     __property ShowHint ;
  1170.     __property TabOrder ;
  1171.     __property TabStop ;
  1172.     __property Visible ;
  1173.     __property OnClick ;
  1174.     __property OnDblClick ;
  1175.     __property OnDragDrop ;
  1176.     __property OnDragOver ;
  1177.     __property OnEndDrag ;
  1178.     __property OnMouseDown ;
  1179.     __property OnMouseMove ;
  1180.     __property OnMouseUp ;
  1181.     __property OnStartDrag ;
  1182. public:
  1183.     /* TCustomStaticText.Create */ __fastcall virtual TStaticText(Classes::TComponent* AOwner) : Stdctrls::
  1184.         TCustomStaticText(AOwner) { }
  1185.     
  1186. public:
  1187.     /* TWinControl.CreateParented */ __fastcall TStaticText(HWND ParentWindow) : Stdctrls::TCustomStaticText(
  1188.         ParentWindow) { }
  1189.     /* TWinControl.Destroy */ __fastcall virtual ~TStaticText(void) { }
  1190.     
  1191. };
  1192.  
  1193. //-- var, const, procedure ---------------------------------------------------
  1194.  
  1195. }    /* namespace Stdctrls */
  1196. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1197. using namespace Stdctrls;
  1198. #endif
  1199. //-- end unit ----------------------------------------------------------------
  1200. #endif    // StdCtrls
  1201.